home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Utilities / PS_Filter / Install-Filter < prev    next >
Encoding:
Text File  |  1999-09-03  |  4.4 KB  |  186 lines
  1. ; $VER: Universal V1.7 (03.09.99)
  2. ; Copyright (C)1997-99 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. (set @default-dest "")
  7.  
  8.  
  9. (set #wichproggy
  10. (cat "\n\nPlease select the printing program you own"
  11. ))
  12. (set #proggyhelp
  13. (cat "This disk can install the PageStream filter for "
  14.     "CanonStudio (registered) or Studio users.\n"
  15.     "Please select the program you own now.\n\n"
  16. ))
  17. (set #proggystudio
  18. (cat "Studio"
  19. ))
  20. (set #proggycanon
  21. (cat "CanonStudio"
  22. ))
  23. (set #nopgs
  24. (cat    "Sorry, I can't locate the \"Pagestream3:SoftLogik/Filters\" or \"Pagestream4:SoftLogik/Filters\" drawer containing the PageStream "
  25.     "graphics import filters. So I can't install the PageStream filter. Please check your "
  26.     "PageStream installation and try again later."
  27. ))
  28. ;--------------
  29. (set #abortunpack
  30. (cat "\nError occured while running the installation decompression program. "
  31.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  32. ))
  33. ;-------
  34. (set #badfiltversion
  35. (cat    "I did not install the wanted filter for "
  36.     "%s. A newer filter V%ld.%ld is already installed. "
  37. ))
  38. ;-------
  39. (set #nopgsfilt
  40. (cat    "I can't find the drawer %sSoftLogik/Filters for installing "
  41.     "the Universal filter to."
  42. ))
  43. ;-------
  44. (set #waitmsg
  45. (cat "\n\n\n\nWorking. Please wait..."
  46. ))
  47.  
  48. (complete 10)
  49.  
  50. ;*** German
  51. (if (= @language "deutsch")
  52. (
  53.     (set #wichproggy
  54.     (cat "\n\nBitte wählen Sie das Programm, das Sie besitzen.\n"
  55.     ))
  56.     (set #proggyhelp
  57.     (cat "Dieses Installationsprogramm kann sowohl für CanonStudio als auch Studio\n"
  58.         "Besitzer den Filter installieren. Bitte wählen Sie, welches Programm "
  59.         "Sie besitzen.\n\n"
  60.     ))
  61.     (set #proggystudio
  62.     (cat "Studio"
  63.     ))
  64.     (set #proggycanon
  65.     (cat "CanonStudio"
  66.     ))
  67.     ;--------------
  68.     (set #abortunpack
  69.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  70.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  71.     ))
  72.     ;--------------
  73.     (set #nopgs
  74.     (cat    "Leider kann ich Ihre \"Pagestream3:SoftLogik/Filters\" oder \"Pagestream4:SoftLogik/Filters\" Schublade mit den PageStream "
  75.         "Grafikimport-Filtern nicht finden. Ich kann daher auch keinen neuen Filter installieren. "
  76.         "Bitte prüfen Sie Ihre PageStream Installation."
  77.     ))
  78.     ;-------
  79.     (set #badfiltversion
  80.     (cat    "Der gewünschte Studio Universal Grafikimport-Filter für das Programm '%s' wurde nicht installiert, "
  81.         "da bereits ein neuerer Filter mit der Version %ld.%ld installiert ist.\n\n"
  82.     ))
  83.     ;-------
  84.     (set #nopgsfilt
  85.     (cat    "Die Schublade %sSoftLogik/Filters kann "
  86.         "für die Installation auf Ihrem System nicht gefunden werden."
  87.     ))
  88.     ;-------
  89.     (set #waitmsg
  90.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  91.     ))
  92. ))
  93.  
  94. (complete 40)
  95.  
  96. (set pgsdrawer "Pagestream3:")
  97. (set guessdrawer (getassign "PageStream3" "a"))
  98. (if (= guessdrawer "")
  99. (
  100.     (set guessdrawer (getassign "PageStream4" "a"))
  101.     (set pgsdrawer "Pagestream4:")
  102. ))
  103. (if (<> guessdrawer "")
  104. (
  105.     (if (= (exists (cat pgsdrawer "SoftLogik/Filters")) 2)
  106.     (
  107.         (set ver 0)
  108.         (set rev 0)
  109.         (if (= (exists (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")) 1)
  110.         (
  111.             (set vernum (getversion (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")))
  112.             (set ver (/ vernum 65536))
  113.             (set rev (- vernum (* ver 65536) ) )
  114.         ))
  115.         (complete 70)
  116.         (if (< ver 2)
  117.         (
  118.             (if (NOT (AND (= ver 1) (> rev 7) ))
  119.             (
  120.                 (set prgm "Studio")
  121.                 (if (= (exists (cat "lx")) 1)
  122.                 (
  123.                     (if (= (exists (cat "lxc")) 1)
  124.                     (
  125.                         (if (askbool (prompt (#wichproggy))
  126.                             (choices #proggystudio #proggycanon)
  127.                             (help (#proggyhelp))
  128.                             (default 1))
  129.                         (
  130.                             (working #waitmsg)
  131.                             (copyfiles (source "lx")
  132.                             (dest "t:")
  133.                             (nogauge)
  134.                             )
  135.                         )
  136.                         (
  137.                             (working #waitmsg)
  138.                             (copyfiles (source "lxc")
  139.                             (dest "t:")
  140.                             (newname "lx")
  141.                             (nogauge)
  142.                             )
  143.                             (set prgm "CanonStudio")
  144.                         ))
  145.                     )
  146.                     (
  147.                         (copyfiles (source "lx")
  148.                         (dest "t:")
  149.                         (nogauge)
  150.                         )
  151.                     ))
  152.                 )
  153.                 (
  154.                     (set prgm "CanonStudio")
  155.                     (copyfiles (source "lxc")
  156.                     (dest "t:")
  157.                     (newname "lx")
  158.                     (nogauge)
  159.                     )
  160.                 ))
  161.                 (working #waitmsg)
  162.                 (set exerr (run (cat "T:lx x PageStream3/Universal.pkd " pgsdrawer "SoftLogik/Filters")))
  163.                 (if (> exerr 0)
  164.                 (
  165.                     (abort (#abortunpack "PageStream3/Universal.pkd"))
  166.                 ))
  167.                 (working #waitmsg)
  168.             )
  169.             (
  170.                 (abort (#badfiltversion "PageStream 3.x/4.x" ver rev))
  171.             ))
  172.         )
  173.         (
  174.             (abort (#badfiltversion "PageStream 3.x/4.x" ver rev))
  175.         ))
  176.     )
  177.     (
  178.         (abort #nopgsfilt)
  179.     ))
  180. )
  181. (
  182.     (abort #nopgs)
  183. ))
  184.  
  185. (complete 100)
  186.